perm filename IAUX1A.LST[EAL,HE]2 blob
sn#710496 filedate 1983-04-28 generic text, type T, neo UTF8
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 1
1 000000 AC0=R0
2 000001 AC1=R1
3 000002 AC2=R2
4 000003 AC3=R3
5 000004 AC4=R4
6 000005 AC5=R5
7
8 .TITLE IAUX1A
9 .GLOBL $RESR6, $FILE
10 .GLOBL $RESR5
11 000014 $VER==12.
12
13 000000 .PSECT GLOBAL,D,OVR,GBL
14 000000 011660' $G$: .=.+11660
15
16 000000 .PSECT TABLES,D,OVR,GBL
17 000000 001001 $BITS: .WORD 1001
18 000002 004004 .WORD 4004
19 000004 020020 .WORD 20020
20 000006 100100 .WORD 100100
21 000010 000001 .WORD 1
22 000012 000002 .WORD 2
23 000014 000004 .WORD 4
24 000016 000010 .WORD 10
25 000020 000020 .WORD 20
26 000022 000040 .WORD 40
27 000024 000100 .WORD 100
28 000026 000200 .WORD 200
29 000030 000400 .WORD 400
30 000032 001000 .WORD 1000
31 000034 002000 .WORD 2000
32 000036 004000 .WORD 4000
33 000040 010000 .WORD 10000
34 000042 020000 .WORD 20000
35 000044 040000 .WORD 40000
36 000046 100000 .WORD 100000
37
38 000000 .PSECT CONSTS,D,CON,LCL
39 000000 $CONST:
40 000000 060526 .WORD 60526
41 000002 072554 .WORD 72554
42 000004 020145 .WORD 20145
43 000006 072123 .WORD 72123
44 000010 061541 .WORD 61541
45 000012 020153 .WORD 20153
46 000014 067125 .WORD 67125
47 000016 062544 .WORD 62544
48 000020 063162 .WORD 63162
49 000022 067554 .WORD 67554
50 000024 072101 .WORD 72101
51 000026 062564 .WORD 62564
52 000030 070155 .WORD 70155
53 000032 020164 .WORD 20164
54 000034 067564 .WORD 67564
55 000036 060440 .WORD 60440
56 000040 061543 .WORD 61543
57 000042 071545 .WORD 71545
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 1-1
58 000044 020163 .WORD 20163
59 000046 067556 .WORD 67556
60 000050 026556 .WORD 26556
61 000052 074145 .WORD 74145
62 000054 071551 .WORD 71551
63 000056 062564 .WORD 62564
64 000060 072156 .WORD 72156
65 000062 062440 .WORD 62440
66 000064 073156 .WORD 73156
67 000066 071151 .WORD 71151
68 000070 067157 .WORD 67157
69 000072 062555 .WORD 62555
70 000074 072156 .WORD 72156
71 000076 026440 .WORD 26440
72 000100 063440 .WORD 63440
73 000102 067557 .WORD 67557
74 000104 020144 .WORD 20144
75 000106 072554 .WORD 72554
76 000110 065543 .WORD 65543
77 000112 020041 .WORD 20041
78 000114 020040 .WORD 20040
79 000116 020040 .WORD 20040
80 000120 072523 .WORD 72523
81 000122 071542 .WORD 71542
82 000124 071143 .WORD 71143
83 000126 070151 .WORD 70151
84 000130 020164 .WORD 20164
85 000132 067151 .WORD 67151
86 000134 062544 .WORD 62544
87 000136 020170 .WORD 20170
88 000140 062554 .WORD 62554
89 000142 071563 .WORD 71563
90 000144 072040 .WORD 72040
91 000146 060550 .WORD 60550
92 000150 020156 .WORD 20156
93 000152 067554 .WORD 67554
94 000154 062567 .WORD 62567
95 000156 020162 .WORD 20162
96 000160 067542 .WORD 67542
97 000162 067165 .WORD 67165
98 000164 035144 .WORD 35144
99 000166 020040 .WORD 20040
100 000170 072523 .WORD 72523
101 000172 071542 .WORD 71542
102 000174 071143 .WORD 71143
103 000176 070151 .WORD 70151
104 000200 020164 .WORD 20164
105 000202 067151 .WORD 67151
106 000204 062544 .WORD 62544
107 000206 020170 .WORD 20170
108 000210 071147 .WORD 71147
109 000212 060545 .WORD 60545
110 000214 062564 .WORD 62564
111 000216 020162 .WORD 20162
112 000220 064164 .WORD 64164
113 000222 067141 .WORD 67141
114 000224 066040 .WORD 66040
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 1-2
115 000226 073557 .WORD 73557
116 000230 071145 .WORD 71145
117 000232 061040 .WORD 61040
118 000234 072557 .WORD 72557
119 000236 062156 .WORD 62156
120 000240 020072 .WORD 20072
121 000242 020040 .WORD 20040
122 000244 026040 .WORD 26040
123 000246 010300 .WORD 10300
124 000250 074000 .WORD 74000
125
126 000000 .PSECT ,I,LCL
127 000000 $CODE:
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 2
129 .GLOBL IAUX1AGET
130 000000 IAUX1AGET:
131 000000 004767 000000G JSR PC,$B127
132 .GLOBL $B127
133 000004 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 3
135 .GLOBL PUSH
136 000006 PUSH:
137 000006 010346 MOV R3,-(SP)
138 000010 004767 000000G JSR PC,$B127
139 000014 005766 000004 TST 4(SP)
140 000020 001002 BNE .+6
141 000022 004767 000000G JSR PC,$B47
142 .GLOBL $B47
143 000026 005737 011576' TST @#$G$+11576
144 000032 001002 BNE .+6
145 000034 004767 000000G JSR PC,$B47
146 000040 013703 011576' MOV @#$G$+11576,R3
147 000044 016376 000016 000004 MOV 16(R3),@4(SP)
148 000052 016663 000004 000016 MOV 4(SP),16(R3)
149 000060 012603 MOV (SP)+,R3
150 000062 012616 MOV (SP)+,@SP
151 000064 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 4
153 .GLOBL POP
154 000066 POP:
155 000066 010346 MOV R3,-(SP)
156 000070 010246 MOV R2,-(SP)
157 000072 004767 000000G JSR PC,$B127
158 000076 005737 011576' TST @#$G$+11576
159 000102 001002 BNE .+6
160 000104 004767 000000G JSR PC,$B47
161 000110 013703 011576' MOV @#$G$+11576,R3
162 000114 016366 000016 000006 MOV 16(R3),6(SP)
163 000122 001021 BNE L3
164 000124 012703 000024' MOV #$CONST+24,R3
165 000130 012702 000012 MOV #12,R2
166 000134 014346 L32766: MOV -(R3),-(SP)
167 000136 077202 SOB R2,L32766
168 000140 012746 000024 MOV #24,-(SP)
169 000144 004767 000000G JSR PC,PP20L
170 .GLOBL PP20L
171 000150 112746 000167 MOVB #167,-(SP)
172 000154 004767 000000G JSR PC,PPCHAR
173 .GLOBL PPCHAR
174 000160 004767 000000G JSR PC,PPLINE
175 .GLOBL PPLINE
176 000164 000410 BR L4
177
178 000166 005763 000016 L3: TST 16(R3)
179 000172 001002 BNE .+6
180 000174 004767 000000G JSR PC,$B47
181 000200 017363 000016 000016 MOV @16(R3),16(R3)
182 000206 012602 L4: MOV (SP)+,R2
183 000210 012603 MOV (SP)+,R3
184 000212 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 5
186 .GLOBL UPTRANS
187 000214 UPTRANS:
188 000214 010346 MOV R3,-(SP)
189 000216 004767 000000G JSR PC,$B127
190 000222 005766 000004 TST 4(SP)
191 000226 001407 BEQ L6
192 000230 005766 000004 TST 4(SP)
193 000234 001002 BNE .+6
194 000236 004767 000000G JSR PC,$B47
195 000242 005276 000004 INC @4(SP)
196 000246 005776 000006 L6: TST @6(SP)
197 000252 001415 BEQ L8
198 000254 005776 000006 TST @6(SP)
199 000260 001002 BNE .+6
200 000262 004767 000000G JSR PC,$B47
201 000266 017603 000006 MOV @6(SP),R3
202 000272 005313 DEC @R3
203 000274 003004 BGT L10
204 000276 017646 000006 MOV @6(SP),-(SP)
205 000302 004767 000000G JSR PC,RELTRANS
206 .GLOBL RELTRANS
207 000306 L8:
208 000306 016676 000004 000006 L10: MOV 4(SP),@6(SP)
209 000314 012603 MOV (SP)+,R3
210 000316 012616 MOV (SP)+,@SP
211 000320 012616 MOV (SP)+,@SP
212 000322 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 6
214 .GLOBL ENVLOOKUP
215 000324 ENVLOOKUP:
216 000324 162706 000010 SUB #10,SP
217 000330 004767 000000G JSR PC,$B75
218 .GLOBL $B75
219 000334 004767 000000G JSR PC,$B127
220 000340 016603 000030 MOV 30(SP),R3
221 000344 006702 SXT R2
222 000346 071227 000012 DIV #12,R2
223 000352 010266 000014 MOV R2,14(SP)
224 000356 010366 000016 MOV R3,16(SP)
225 000362 020227 000005 CMP R2,#5
226 000366 002020 BGE L12
227 000370 005766 000026 TST 26(SP)
228 000374 001002 BNE .+6
229 000376 004767 000000G JSR PC,$B47
230 000402 020227 000004 CMP R2,#4
231 000406 101402 BLOS .+6
232 000410 004767 000000G JSR PC,$B43
233 .GLOBL $B43
234 000414 006302 ASL R2
235 000416 066602 000026 ADD 26(SP),R2
236 000422 016205 000002 MOV 2(R2),R5
237 000426 000426 BR L13
238
239 000430 005766 000026 L12: TST 26(SP)
240 000434 001002 BNE .+6
241 000436 004767 000000G JSR PC,$B47
242 000442 016603 000026 MOV 26(SP),R3
243 000446 016305 000012 MOV 12(R3),R5
244 000452 010246 MOV R2,-(SP)
245 000454 012704 000005 MOV #5,R4
246 000460 020416 L14: CMP R4,@SP
247 000462 003007 BGT L15
248 000464 005705 TST R5
249 000466 001002 BNE .+6
250 000470 004767 000000G JSR PC,$B47
251 000474 011505 MOV @R5,R5
252 000476 005204 INC R4
253 000500 102367 BVC L14
254 000502 005726 L15: TST (SP)+
255 000504 005705 L13: TST R5
256 000506 001002 BNE .+6
257 000510 004767 000000G JSR PC,$B47
258 000514 016603 000016 MOV 16(SP),R3
259 000520 020327 000011 CMP R3,#11
260 000524 101402 BLOS .+6
261 000526 004767 000000G JSR PC,$B43
262 000532 006303 ASL R3
263 000534 060503 ADD R5,R3
264 000536 016366 000002 000032 MOV 2(R3),32(SP)
265 000544 004767 000000G JSR PC,$B77
266 .GLOBL $B77
267 000550 062706 000010 ADD #10,SP
268 000554 012616 MOV (SP)+,@SP
269 000556 012616 MOV (SP)+,@SP
270 000560 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 7
272 .GLOBL GETELEV
273 000562 GETELEV:
274 000562 010346 MOV R3,-(SP)
275 000564 010246 MOV R2,-(SP)
276 000566 004767 000000G JSR PC,$B127
277 000572 026637 000006 011606' CMP 6(SP),@#$G$+11606
278 000600 001003 BNE L17
279 000602 005066 000010 CLR 10(SP)
280 000606 000442 BR L18
281
282 000610 005766 000006 L17: TST 6(SP)
283 000614 001002 BNE .+6
284 000616 004767 000000G JSR PC,$B47
285 000622 016603 000006 MOV 6(SP),R3
286 000626 132763 000001 000015 BITB #1,15(R3)
287 000634 001413 BEQ L20
288 000636 005763 000016 TST 16(R3)
289 000642 001002 BNE .+6
290 000644 004767 000000G JSR PC,$B47
291 000650 016303 000016 MOV 16(R3),R3
292 000654 016366 000004 000010 MOV 4(R3),10(SP)
293 000662 000414 BR L21
294
295 000664 005763 000016 L20: TST 16(R3)
296 000670 001002 BNE .+6
297 000672 004767 000000G JSR PC,$B47
298 000676 016303 000016 MOV 16(R3),R3
299 000702 005002 CLR R2
300 000704 156302 000022 BISB 22(R3),R2
301 000710 010266 000010 MOV R2,10(SP)
302 000714 L18:
303 000714 012602 L21: MOV (SP)+,R2
304 000716 012603 MOV (SP)+,R3
305 000720 012616 MOV (SP)+,@SP
306 000722 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 8
308 .GLOBL GETENTRY
309 000724 GETENTRY:
310 000724 005746 TST -(SP)
311 000726 004767 000000G JSR PC,$B75
312 000732 004767 000000G JSR PC,$B127
313 000736 012700 000012 MOV #12,R0
314 000742 005766 000022 TST 22(SP)
315 000746 001003 BNE L23
316 000750 013705 011606' MOV @#$G$+11606,R5
317 000754 000472 BR L24
318
319 000756 005737 011576' L23: TST @#$G$+11576
320 000762 001002 BNE .+6
321 000764 004767 000000G JSR PC,$B47
322 000770 013703 011576' MOV @#$G$+11576,R3
323 000774 016305 000010 MOV 10(R3),R5
324 001000 005746 L25: TST -(SP)
325 001002 010546 MOV R5,-(SP)
326 001004 004767 177552 JSR PC,GETELEV
327 .GLOBL GETELEV
328 001010 026626 000024 CMP 24(SP),(SP)+
329 001014 002006 BGE L27
330 001016 005705 TST R5
331 001020 001002 BNE .+6
332 001022 004767 000000G JSR PC,$B47
333 001026 011505 MOV @R5,R5
334 001030 000763 BR L25
335
336 001032 005746 L27: TST -(SP)
337 001034 010546 MOV R5,-(SP)
338 001036 004767 177520 JSR PC,GETELEV
339 .GLOBL GETELEV
340 001042 026626 000024 CMP 24(SP),(SP)+
341 001046 001435 BEQ L29
342 001050 012703 000050' MOV #$CONST+50,R3
343 001054 010002 MOV R0,R2
344 001056 014346 L32765: MOV -(R3),-(SP)
345 001060 077202 SOB R2,L32765
346 001062 012746 000024 MOV #24,-(SP)
347 001066 004767 000000G JSR PC,PP20L
348 .GLOBL PP20L
349 001072 012703 000074' MOV #$CONST+74,R3
350 001076 010002 MOV R0,R2
351 001100 014346 L32764: MOV -(R3),-(SP)
352 001102 077202 SOB R2,L32764
353 001104 012746 000024 MOV #24,-(SP)
354 001110 004767 000000G JSR PC,PP20
355 .GLOBL PP20
356 001114 012703 000120' MOV #$CONST+120,R3
357 001120 010002 MOV R0,R2
358 001122 014346 L32763: MOV -(R3),-(SP)
359 001124 077202 SOB R2,L32763
360 001126 012746 000020 MOV #20,-(SP)
361 001132 004767 000000G JSR PC,PP20
362 .GLOBL PP20
363 001136 004767 000000G JSR PC,PPLINE
364 .GLOBL PPLINE
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 8-1
365 001142 L24:
366 001142 005746 L29: TST -(SP)
367 001144 016646 000022 MOV 22(SP),-(SP)
368 001150 010546 MOV R5,-(SP)
369 001152 004767 177146 JSR PC,ENVLOOKUP
370 .GLOBL ENVLOOKUP
371 001156 012666 000024 MOV (SP)+,24(SP)
372 001162 004767 000000G JSR PC,$B77
373 001166 005726 TST (SP)+
374 001170 012616 MOV (SP)+,@SP
375 001172 012616 MOV (SP)+,@SP
376 001174 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 9
378 .GLOBL GETVAR
379 001176 GETVAR:
380 001176 162706 000012 SUB #12,SP
381 001202 004767 000000G JSR PC,$B75
382 001206 174046 STF AC0,-(SP)
383 001210 004767 000000G JSR PC,$B127
384 001214 005746 TST -(SP)
385 001216 016603 000040 MOV 40(SP),R3
386 001222 020327 000377 CMP R3,#377
387 001226 101402 BLOS .+6
388 001230 004767 000000G JSR PC,$B45
389 .GLOBL $B45
390 001234 010346 MOV R3,-(SP)
391 001236 016603 000040 MOV 40(SP),R3
392 001242 020327 000377 CMP R3,#377
393 001246 101402 BLOS .+6
394 001250 004767 000000G JSR PC,$B45
395 001254 010346 MOV R3,-(SP)
396 001256 004767 177442 JSR PC,GETENTRY
397 .GLOBL GETENTRY
398 001262 012604 MOV (SP)+,R4
399 001264 005704 L30: TST R4
400 001266 001002 BNE .+6
401 001270 004767 000000G JSR PC,$B47
402 001274 121427 000014 CMPB @R4,#14
403 001300 001003 BNE L32
404 001302 016404 000002 MOV 2(R4),R4
405 001306 000766 BR L30
406
407 001310 121427 000013 L32: CMPB @R4,#13
408 001314 001402 BEQ .+6
409 001316 000167 000414 JMP L34
410 001322 016466 000004 000030 MOV 4(R4),30(SP)
411 001330 005066 000024 CLR 24(SP)
412 001334 005746 L35: TST -(SP)
413 001336 004767 176524 JSR PC,POP
414 .GLOBL POP
415 001342 012666 000026 MOV (SP)+,26(SP)
416 001346 001002 BNE .+6
417 001350 004767 000000G JSR PC,$B47
418 001354 016603 000026 MOV 26(SP),R3
419 001360 172463 000004 LDF 4(R3),AC0
420 001364 170563 000004 TSTF 4(R3)
421 001370 170000 CFCC
422 001372 100002 BPL L32762
423 001374 173027 040200 SUBF #↑O40200,AC0
424 001400 172027 040000 L32762: ADDF #↑O40000,AC0
425 001404 175403 STCFI AC0,R3
426 001406 010305 MOV R3,R5
427 001410 016646 000026 MOV 26(SP),-(SP)
428 001414 004767 000000G JSR PC,RELNODE
429 .GLOBL RELNODE
430 001420 005766 000030 TST 30(SP)
431 001424 001002 BNE .+6
432 001426 004767 000000G JSR PC,$B47
433 001432 016602 000030 MOV 30(SP),R2
434 001436 020362 000004 CMP R3,4(R2)
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 9-1
435 001442 002034 BGE L38
436 001444 012701 000144' MOV #$CONST+144,R1
437 001450 012700 000012 MOV #12,R0
438 001454 014146 L32761: MOV -(R1),-(SP)
439 001456 077002 SOB R0,L32761
440 001460 012746 000024 MOV #24,-(SP)
441 001464 004767 000000G JSR PC,PP20L
442 .GLOBL PP20L
443 001470 012701 000170' MOV #$CONST+170,R1
444 001474 012700 000012 MOV #12,R0
445 001500 014146 L32760: MOV -(R1),-(SP)
446 001502 077002 SOB R0,L32760
447 001504 012746 000023 MOV #23,-(SP)
448 001510 004767 000000G JSR PC,PP20
449 .GLOBL PP20
450 001514 010346 MOV R3,-(SP)
451 001516 004767 000000G JSR PC,PPINT
452 .GLOBL PPINT
453 001522 004767 000000G JSR PC,PPLINE
454 .GLOBL PPLINE
455 001526 016205 000004 MOV 4(R2),R5
456 001532 000453 BR L39
457
458 001534 020362 000006 L38: CMP R3,6(R2)
459 001540 003450 BLE L41
460 001542 012701 000214' MOV #$CONST+214,R1
461 001546 012700 000012 MOV #12,R0
462 001552 014146 L32759: MOV -(R1),-(SP)
463 001554 077002 SOB R0,L32759
464 001556 012746 000024 MOV #24,-(SP)
465 001562 004767 000000G JSR PC,PP20L
466 .GLOBL PP20L
467 001566 012701 000240' MOV #$CONST+240,R1
468 001572 012700 000012 MOV #12,R0
469 001576 014146 L32758: MOV -(R1),-(SP)
470 001600 077002 SOB R0,L32758
471 001602 012746 000024 MOV #24,-(SP)
472 001606 004767 000000G JSR PC,PP20
473 .GLOBL PP20
474 001612 162706 000006 SUB #6,SP
475 001616 010601 MOV SP,R1
476 001620 012700 000240' MOV #$CONST+240,R0
477 001624 012703 000005 MOV #5,R3
478 001630 112021 L32757: MOVB (R0)+,(R1)+
479 001632 077302 SOB R3,L32757
480 001634 012746 000002 MOV #2,-(SP)
481 001640 004767 000000G JSR PC,PP5
482 .GLOBL PP5
483 001644 010546 MOV R5,-(SP)
484 001646 004767 000000G JSR PC,PPINT
485 .GLOBL PPINT
486 001652 004767 000000G JSR PC,PPLINE
487 .GLOBL PPLINE
488 001656 016205 000006 MOV 6(R2),R5
489 001662 L39:
490 001662 010503 L41: MOV R5,R3
491 001664 166203 000004 SUB 4(R2),R3
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 9-2
492 001670 070362 000010 MUL 10(R2),R3
493 001674 060366 000024 ADD R3,24(SP)
494 001700 011266 000030 MOV @R2,30(SP)
495 001704 001213 BNE L35
496 001706 005746 TST -(SP)
497 001710 016646 000026 MOV 26(SP),-(SP)
498 001714 005704 TST R4
499 001716 001002 BNE .+6
500 001720 004767 000000G JSR PC,$B47
501 001724 016446 000002 MOV 2(R4),-(SP)
502 001730 004767 176370 JSR PC,ENVLOOKUP
503 .GLOBL ENVLOOKUP
504 001734 012604 MOV (SP)+,R4
505 001736 010466 000040 L34: MOV R4,40(SP)
506 001742 172426 LDF (SP)+,AC0
507 001744 004767 000000G JSR PC,$B77
508 001750 062706 000012 ADD #12,SP
509 001754 012616 MOV (SP)+,@SP
510 001756 012616 MOV (SP)+,@SP
511 001760 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 10
513 .GLOBL GTVARN
514 001762 GTVARN:
515 001762 004767 000000G JSR PC,$B75
516 001766 004767 000000G JSR PC,$B127
517 001772 012700 000377 MOV #377,R0
518 001776 005766 000016 TST 16(SP)
519 002002 001002 BNE .+6
520 002004 004767 000000G JSR PC,$B47
521 002010 016603 000016 MOV 16(SP),R3
522 002014 126327 000002 000001 CMPB 2(R3),#1
523 002022 001032 BNE L43
524 002024 005763 000004 TST 4(R3)
525 002030 001002 BNE .+6
526 002032 004767 000000G JSR PC,$B47
527 002036 005746 TST -(SP)
528 002040 016302 000004 MOV 4(R3),R2
529 002044 005001 CLR R1
530 002046 156201 000006 BISB 6(R2),R1
531 002052 020100 CMP R1,R0
532 002054 101402 BLOS .+6
533 002056 004767 000000G JSR PC,$B45
534 002062 010146 MOV R1,-(SP)
535 002064 016303 000004 MOV 4(R3),R3
536 002070 005002 CLR R2
537 002072 156302 000007 BISB 7(R3),R2
538 002076 020200 CMP R2,R0
539 002100 101402 BLOS .+6
540 002102 004767 000000G JSR PC,$B45
541 002106 000440 BR L32756
542
543 002110 005763 000004 L43: TST 4(R3)
544 002114 001002 BNE .+6
545 002116 004767 000000G JSR PC,$B47
546 002122 016303 000004 MOV 4(R3),R3
547 002126 005763 000004 TST 4(R3)
548 002132 001002 BNE .+6
549 002134 004767 000000G JSR PC,$B47
550 002140 005746 TST -(SP)
551 002142 016302 000004 MOV 4(R3),R2
552 002146 005001 CLR R1
553 002150 156201 000006 BISB 6(R2),R1
554 002154 020100 CMP R1,R0
555 002156 101402 BLOS .+6
556 002160 004767 000000G JSR PC,$B45
557 002164 010146 MOV R1,-(SP)
558 002166 016303 000004 MOV 4(R3),R3
559 002172 005002 CLR R2
560 002174 156302 000007 BISB 7(R3),R2
561 002200 020200 CMP R2,R0
562 002202 101402 BLOS .+6
563 002204 004767 000000G JSR PC,$B45
564 002210 010246 L32756: MOV R2,-(SP)
565 002212 004767 176760 JSR PC,GETVAR
566 .GLOBL GETVAR
567 002216 012666 000020 MOV (SP)+,20(SP)
568 002222 004767 000000G L44: JSR PC,$B77
569 002226 012616 MOV (SP)+,@SP
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 10-1
570 002230 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 11
572 .GLOBL GETNVAL
573 002232 GETNVAL:
574 002232 010346 MOV R3,-(SP)
575 002234 004767 000000G JSR PC,$B127
576 002240 105076 000004 CLRB @4(SP)
577 002244 005766 000006 TST 6(SP)
578 002250 001002 BNE .+6
579 002252 004767 000000G JSR PC,$B47
580 002256 016603 000006 MOV 6(SP),R3
581 002262 126327 000002 000001 CMPB 2(R3),#1
582 002270 001004 BNE L45
583 002272 126327 000003 000001 CMPB 3(R3),#1
584 002300 001010 BNE L46
585 002302 005746 L45: TST -(SP)
586 002304 004767 175556 JSR PC,POP
587 .GLOBL POP
588 002310 012666 000006 MOV (SP)+,6(SP)
589 002314 112776 000001 000004 MOVB #1,@4(SP)
590 002322 005766 000006 L46: TST 6(SP)
591 002326 001417 BEQ L49
592 002330 005766 000006 TST 6(SP)
593 002334 001002 BNE .+6
594 002336 004767 000000G JSR PC,$B47
595 002342 016603 000006 MOV 6(SP),R3
596 002346 105763 000003 TSTB 3(R3)
597 002352 001005 BNE L51
598 002354 016366 000006 000006 MOV 6(R3),6(SP)
599 002362 105076 000004 CLRB @4(SP)
600 002366 L49:
601 002366 016666 000006 000010 L51: MOV 6(SP),10(SP)
602 002374 012603 MOV (SP)+,R3
603 002376 012616 MOV (SP)+,@SP
604 002400 012616 MOV (SP)+,@SP
605 002402 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 12
607 .GLOBL GETPDB
608 002404 GETPDB:
609 002404 005746 TST -(SP)
610 002406 004767 000000G JSR PC,$B75
611 002412 004767 000000G JSR PC,$B127
612 002416 012700 011576' MOV #$G$+11576,R0
613 002422 005746 TST -(SP)
614 002424 004767 000000G JSR PC,NEWPDB
615 .GLOBL NEWPDB
616 002430 012666 000014 MOV (SP)+,14(SP)
617 002434 001002 BNE .+6
618 002436 004767 000000G JSR PC,$B47
619 002442 016603 000014 MOV 14(SP),R3
620 002446 013713 011604' MOV @#$G$+11604,@R3
621 002452 016637 000014 011604' MOV 14(SP),@#$G$+11604
622 002460 005063 000002 CLR 2(R3)
623 002464 005710 TST @R0
624 002466 001444 BEQ L53
625 002470 005710 TST @R0
626 002472 001002 BNE .+6
627 002474 004767 000000G JSR PC,$B47
628 002500 011002 MOV @R0,R2
629 002502 016263 000010 000010 MOV 10(R2),10(R3)
630 002510 005746 TST -(SP)
631 002512 016346 000010 MOV 10(R3),-(SP)
632 002516 004767 176040 JSR PC,GETELEV
633 .GLOBL GETELEV
634 002522 012601 MOV (SP)+,R1
635 002524 005201 INC R1
636 002526 020127 000377 CMP R1,#377
637 002532 101402 BLOS .+6
638 002534 004767 000000G JSR PC,$B45
639 002540 110163 000004 MOVB R1,4(R3)
640 002544 005001 CLR R1
641 002546 156201 000006 BISB 6(R2),R1
642 002552 020127 000377 CMP R1,#377
643 002556 101402 BLOS .+6
644 002560 004767 000000G JSR PC,$B45
645 002564 110163 000006 MOVB R1,6(R3)
646 002570 016263 000020 000020 MOV 20(R2),20(R3)
647 002576 000412 BR L54
648
649 002600 013763 011606' 000010 L53: MOV @#$G$+11606,10(R3)
650 002606 112763 000001 000004 MOVB #1,4(R3)
651 002614 105063 000006 CLRB 6(R3)
652 002620 005063 000020 CLR 20(R3)
653 002624 142763 000017 000007 L54: BICB #17,7(R3)
654 002632 105063 000005 CLRB 5(R3)
655 002636 005063 000012 CLR 12(R3)
656 002642 005063 000014 CLR 14(R3)
657 002646 005063 000016 CLR 16(R3)
658 002652 005063 000022 CLR 22(R3)
659 002656 142763 000001 000026 BICB #1,26(R3)
660 002664 005063 000030 CLR 30(R3)
661 002670 016666 000014 000020 MOV 14(SP),20(SP)
662 002676 004767 000000G JSR PC,$B77
663 002702 005726 TST (SP)+
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 12-1
664 002704 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 13
666 .GLOBL FREEPDB
667 002706 FREEPDB:
668 002706 024646 CMP -(SP),-(SP)
669 002710 004767 000000G JSR PC,$B75
670 002714 004767 000000G JSR PC,$B127
671 002720 012700 011604' MOV #$G$+11604,R0
672 002724 021066 000022 CMP @R0,22(SP)
673 002730 001010 BNE L56
674 002732 005766 000022 TST 22(SP)
675 002736 001002 BNE .+6
676 002740 004767 000000G JSR PC,$B47
677 002744 017610 000022 MOV @22(SP),@R0
678 002750 000436 BR L57
679
680 002752 011005 L56: MOV @R0,R5
681 002754 005004 CLR R4
682 002756 005705 L58: TST R5
683 002760 001002 BNE .+6
684 002762 004767 000000G JSR PC,$B47
685 002766 021566 000022 CMP @R5,22(SP)
686 002772 001003 BNE L61
687 002774 012704 000001 MOV #1,R4
688 003000 000401 BR L62
689
690 003002 011505 L61: MOV @R5,R5
691 003004 005704 L62: TST R4
692 003006 001002 BNE L59
693 003010 005705 TST R5
694 003012 001361 BNE L58
695 003014 005704 L59: TST R4
696 003016 001413 BEQ L65
697 003020 005705 TST R5
698 003022 001002 BNE .+6
699 003024 004767 000000G JSR PC,$B47
700 003030 005766 000022 TST 22(SP)
701 003034 001002 BNE .+6
702 003036 004767 000000G JSR PC,$B47
703 003042 017615 000022 MOV @22(SP),@R5
704 003046 L57:
705 003046 016646 000022 L65: MOV 22(SP),-(SP)
706 003052 004767 000000G JSR PC,RELPDB
707 .GLOBL RELPDB
708 003056 004767 000000G JSR PC,$B77
709 003062 022626 CMP (SP)+,(SP)+
710 003064 012616 MOV (SP)+,@SP
711 003066 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 14
713 .GLOBL GETEVENT
714 003070 GETEVENT:
715 003070 005746 TST -(SP)
716 003072 010546 MOV R5,-(SP)
717 003074 004767 000000G JSR PC,$B127
718 003100 005746 TST -(SP)
719 003102 004767 000000G JSR PC,NEWEVENT
720 .GLOBL NEWEVENT
721 003106 012605 MOV (SP)+,R5
722 003110 001002 BNE .+6
723 003112 004767 000000G JSR PC,$B47
724 003116 013715 011612' MOV @#$G$+11612,@R5
725 003122 010537 011612' MOV R5,@#$G$+11612
726 003126 005065 000002 CLR 2(R5)
727 003132 005065 000004 CLR 4(R5)
728 003136 010566 000006 MOV R5,6(SP)
729 003142 012605 MOV (SP)+,R5
730 003144 005726 TST (SP)+
731 003146 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 15
733 .GLOBL FREEEVENT
734 003150 FREEEVENT:
735 003150 024646 CMP -(SP),-(SP)
736 003152 004767 000000G JSR PC,$B75
737 003156 004767 000000G JSR PC,$B127
738 003162 012700 011612' MOV #$G$+11612,R0
739 003166 021066 000022 CMP @R0,22(SP)
740 003172 001012 BNE L67
741 003174 005766 000022 TST 22(SP)
742 003200 001002 BNE .+6
743 003202 004767 000000G JSR PC,$B47
744 003206 017610 000022 MOV @22(SP),@R0
745 003212 012704 000001 MOV #1,R4
746 003216 000436 BR L68
747
748 003220 011005 L67: MOV @R0,R5
749 003222 005004 CLR R4
750 003224 005705 L69: TST R5
751 003226 001002 BNE .+6
752 003230 004767 000000G JSR PC,$B47
753 003234 021566 000022 CMP @R5,22(SP)
754 003240 001003 BNE L72
755 003242 012704 000001 MOV #1,R4
756 003246 000401 BR L73
757
758 003250 011505 L72: MOV @R5,R5
759 003252 005704 L73: TST R4
760 003254 001002 BNE L70
761 003256 005705 TST R5
762 003260 001361 BNE L69
763 003262 005704 L70: TST R4
764 003264 001413 BEQ L76
765 003266 005705 TST R5
766 003270 001002 BNE .+6
767 003272 004767 000000G JSR PC,$B47
768 003276 005766 000022 TST 22(SP)
769 003302 001002 BNE .+6
770 003304 004767 000000G JSR PC,$B47
771 003310 017615 000022 MOV @22(SP),@R5
772 003314 L68:
773 003314 005704 L76: TST R4
774 003316 001404 BEQ L78
775 003320 016646 000022 MOV 22(SP),-(SP)
776 003324 004767 000000G JSR PC,RELEVENT
777 .GLOBL RELEVENT
778 003330 004767 000000G L78: JSR PC,$B77
779 003334 022626 CMP (SP)+,(SP)+
780 003336 012616 MOV (SP)+,@SP
781 003340 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 16
783 .GLOBL ENTERENTRY
784 003342 ENTERENTRY:
785 003342 024646 CMP -(SP),-(SP)
786 003344 004767 000000G JSR PC,$B75
787 003350 004767 000000G JSR PC,$B127
788 003354 012700 000011 MOV #11,R0
789 003360 027600 000030 CMP @30(SP),R0
790 003364 001102 BNE L80
791 003366 005776 000026 TST @26(SP)
792 003372 001002 BNE .+6
793 003374 004767 000000G JSR PC,$B47
794 003400 017603 000026 MOV @26(SP),R3
795 003404 005746 TST -(SP)
796 003406 004767 000000G JSR PC,NEWENVIRONMENT
797 .GLOBL NEWENVIRONMENT
798 003412 012613 MOV (SP)+,@R3
799 003414 011376 000026 MOV @R3,@26(SP)
800 003420 001002 BNE .+6
801 003422 004767 000000G JSR PC,$B47
802 003426 017603 000026 MOV @26(SP),R3
803 003432 005013 CLR @R3
804 003434 005005 CLR R5
805 003436 005776 000026 L81: TST @26(SP)
806 003442 001002 BNE .+6
807 003444 004767 000000G JSR PC,$B47
808 003450 017603 000026 MOV @26(SP),R3
809 003454 010502 MOV R5,R2
810 003456 020200 CMP R2,R0
811 003460 101402 BLOS .+6
812 003462 004767 000000G JSR PC,$B43
813 003466 006302 ASL R2
814 003470 060203 ADD R2,R3
815 003472 005063 000002 CLR 2(R3)
816 003476 005205 INC R5
817 003500 020500 CMP R5,R0
818 003502 003755 BLE L81
819 003504 005076 000030 L82: CLR @30(SP)
820 003510 005276 000032 INC @32(SP)
821 003514 027627 000032 000005 CMP @32(SP),#5
822 003522 002022 BGE L84
823 003524 005766 000024 TST 24(SP)
824 003530 001002 BNE .+6
825 003532 004767 000000G JSR PC,$B47
826 003536 017603 000032 MOV @32(SP),R3
827 003542 020327 000004 CMP R3,#4
828 003546 101402 BLOS .+6
829 003550 004767 000000G JSR PC,$B43
830 003554 006303 ASL R3
831 003556 066603 000024 ADD 24(SP),R3
832 003562 017663 000026 000002 MOV @26(SP),2(R3)
833 003570 000402 L84: BR L85
834
835 003572 005276 000030 L80: INC @30(SP)
836 003576 012703 000012 L85: MOV #12,R3
837 003602 070376 000032 MUL @32(SP),R3
838 003606 067603 000030 ADD @30(SP),R3
839 003612 010305 MOV R3,R5
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 16-1
840 003614 005766 000024 TST 24(SP)
841 003620 001002 BNE .+6
842 003622 004767 000000G JSR PC,$B47
843 003626 016602 000024 MOV 24(SP),R2
844 003632 005001 CLR R1
845 003634 156201 000014 BISB 14(R2),R1
846 003640 020301 CMP R3,R1
847 003642 101407 BLOS L87
848 003644 020327 000377 CMP R3,#377
849 003650 101402 BLOS .+6
850 003652 004767 000000G JSR PC,$B45
851 003656 110362 000014 MOVB R3,14(R2)
852 003662 005746 L87: TST -(SP)
853 003664 004767 000000G JSR PC,NEWEENTRY
854 .GLOBL NEWEENTRY
855 003670 012604 MOV (SP)+,R4
856 003672 005776 000026 TST @26(SP)
857 003676 001002 BNE .+6
858 003700 004767 000000G JSR PC,$B47
859 003704 017603 000026 MOV @26(SP),R3
860 003710 017602 000030 MOV @30(SP),R2
861 003714 020200 CMP R2,R0
862 003716 101402 BLOS .+6
863 003720 004767 000000G JSR PC,$B43
864 003724 006302 ASL R2
865 003726 060203 ADD R2,R3
866 003730 010463 000002 MOV R4,2(R3)
867 003734 001002 BNE .+6
868 003736 004767 000000G JSR PC,$B47
869 003742 005766 000022 TST 22(SP)
870 003746 001002 BNE .+6
871 003750 004767 000000G JSR PC,$B47
872 003754 016603 000022 MOV 22(SP),R3
873 003760 116303 000013 MOVB 13(R3),R3
874 003764 042703 177740 BIC #177740,R3
875 003770 020327 000024 CMP R3,#24
876 003774 101402 BLOS .+6
877 003776 004767 000000G JSR PC,$B45
878 004002 110314 MOVB R3,@R4
879 004004 120327 000004 CMPB R3,#4
880 004010 001002 BNE L89
881 004012 112714 000005 MOVB #5,@R4
882 004016 010466 000034 L89: MOV R4,34(SP)
883 004022 004767 000000G JSR PC,$B77
884 004026 016666 000004 000016 MOV 4(SP),16(SP)
885 004034 062706 000016 ADD #16,SP
886 004040 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 17
888 .GLOBL MAKECMON
889 004042 MAKECMON:
890 004042 005746 TST -(SP)
891 004044 004767 000000G JSR PC,$B75
892 004050 004767 000000G JSR PC,$B127
893 004054 005746 TST -(SP)
894 004056 004767 000000G JSR PC,NEWCMONCB
895 .GLOBL NEWCMONCB
896 004062 012666 000014 MOV (SP)+,14(SP)
897 004066 001002 BNE .+6
898 004070 004767 000000G JSR PC,$B47
899 004074 016603 000014 MOV 14(SP),R3
900 004100 005766 000020 TST 20(SP)
901 004104 001002 BNE .+6
902 004106 004767 000000G JSR PC,$B47
903 004112 016602 000020 MOV 20(SP),R2
904 004116 016263 000014 000002 MOV 14(R2),2(R3)
905 004124 105063 000001 CLRB 1(R3)
906 004130 105013 CLRB @R3
907 004132 005746 TST -(SP)
908 004134 004767 176244 JSR PC,GETPDB
909 .GLOBL GETPDB
910 004140 012663 000004 MOV (SP)+,4(R3)
911 004144 005766 000022 TST 22(SP)
912 004150 001002 BNE .+6
913 004152 004767 000000G JSR PC,$B47
914 004156 016602 000022 MOV 22(SP),R2
915 004162 016263 000002 000012 MOV 2(R2),12(R3)
916 004170 005766 000014 TST 14(SP)
917 004174 001002 BNE .+6
918 004176 004767 000000G JSR PC,$B47
919 004202 016602 000014 MOV 14(SP),R2
920 004206 005762 000002 TST 2(R2)
921 004212 001002 BNE .+6
922 004214 004767 000000G JSR PC,$B47
923 004220 016202 000002 MOV 2(R2),R2
924 004224 005762 000014 TST 14(R2)
925 004230 001002 BNE .+6
926 004232 004767 000000G JSR PC,$B47
927 004236 016202 000014 MOV 14(R2),R2
928 004242 126227 000002 000025 CMPB 2(R2),#25
929 004250 001006 BNE L91
930 004252 005746 TST -(SP)
931 004254 004767 176610 JSR PC,GETEVENT
932 .GLOBL GETEVENT
933 004260 012663 000006 MOV (SP)+,6(R3)
934 004264 000402 BR L92
935
936 004266 005063 000006 L91: CLR 6(R3)
937 004272 005766 000014 L92: TST 14(SP)
938 004276 001002 BNE .+6
939 004300 004767 000000G JSR PC,$B47
940 004304 016603 000014 MOV 14(SP),R3
941 004310 005763 000004 TST 4(R3)
942 004314 001002 BNE .+6
943 004316 004767 000000G JSR PC,$B47
944 004322 016303 000004 MOV 4(R3),R3
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 17-1
945 004326 005002 CLR R2
946 004330 156302 000006 BISB 6(R3),R2
947 004334 010201 MOV R2,R1
948 004336 005000 CLR R0
949 004340 071027 000012 DIV #12,R0
950 004344 005201 INC R1
951 004346 020127 000377 CMP R1,#377
952 004352 101402 BLOS .+6
953 004354 004767 000000G JSR PC,$B45
954 004360 110163 000006 MOVB R1,6(R3)
955 004364 005766 000014 TST 14(SP)
956 004370 001002 BNE .+6
957 004372 004767 000000G JSR PC,$B47
958 004376 016602 000014 MOV 14(SP),R2
959 004402 016263 000002 000012 MOV 2(R2),12(R3)
960 004410 016363 000012 000032 MOV 12(R3),32(R3)
961 004416 016663 000014 000020 MOV 14(SP),20(R3)
962 004424 013763 011576' 000030 MOV @#$G$+11576,30(R3)
963 004432 005766 000022 TST 22(SP)
964 004436 001002 BNE .+6
965 004440 004767 000000G JSR PC,$B47
966 004444 016603 000022 MOV 22(SP),R3
967 004450 016663 000014 000002 MOV 14(SP),2(R3)
968 004456 004767 000000G JSR PC,$B77
969 004462 005726 TST (SP)+
970 004464 012616 MOV (SP)+,@SP
971 004466 012616 MOV (SP)+,@SP
972 004470 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 18
974 ;GETBOUND
975 004472 P48:
976 004472 005746 TST -(SP)
977 004474 004767 000000G JSR PC,$B75
978 004500 174046 STF AC0,-(SP)
979 004502 004767 000000G JSR PC,$B127
980 004506 005766 000024 TST 24(SP)
981 004512 001002 BNE .+6
982 004514 004767 000000G JSR PC,$B47
983 004520 016603 000024 MOV 24(SP),R3
984 004524 105763 000002 TSTB 2(R3)
985 004530 001023 BNE L94
986 004532 005746 TST -(SP)
987 004534 004767 173326 JSR PC,POP
988 .GLOBL POP
989 004540 012666 000024 MOV (SP)+,24(SP)
990 004544 001002 BNE .+6
991 004546 004767 000000G JSR PC,$B47
992 004552 016603 000024 MOV 24(SP),R3
993 004556 172463 000004 LDF 4(R3),AC0
994 004562 170563 000004 TSTF 4(R3)
995 004566 170000 CFCC
996 004570 100002 BPL L32755
997 004572 173027 040200 SUBF #↑O40200,AC0
998 004576 000512 L32755: BR L32752
999
1000 004600 126327 000003 000002 L94: CMPB 3(R3),#2
1001 004606 001011 BNE L97
1002 004610 172463 000004 LDF 4(R3),AC0
1003 004614 170563 000004 TSTF 4(R3)
1004 004620 170000 CFCC
1005 004622 100002 BPL L32754
1006 004624 173027 040200 SUBF #↑O40200,AC0
1007 004630 000475 L32754: BR L32752
1008
1009 004632 105763 000003 L97: TSTB 3(R3)
1010 004636 001020 BNE L100
1011 004640 005763 000006 TST 6(R3)
1012 004644 001002 BNE .+6
1013 004646 004767 000000G JSR PC,$B47
1014 004652 016303 000006 MOV 6(R3),R3
1015 004656 172463 000004 LDF 4(R3),AC0
1016 004662 170563 000004 TSTF 4(R3)
1017 004666 170000 CFCC
1018 004670 100002 BPL L32753
1019 004672 173027 040200 SUBF #↑O40200,AC0
1020 004676 000452 L32753: BR L32752
1021
1022 004700 005763 000004 L100: TST 4(R3)
1023 004704 001002 BNE .+6
1024 004706 004767 000000G JSR PC,$B47
1025 004712 005746 TST -(SP)
1026 004714 016302 000004 MOV 4(R3),R2
1027 004720 005001 CLR R1
1028 004722 156201 000006 BISB 6(R2),R1
1029 004726 020127 000377 CMP R1,#377
1030 004732 101402 BLOS .+6
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 18-1
1031 004734 004767 000000G JSR PC,$B45
1032 004740 010146 MOV R1,-(SP)
1033 004742 016303 000004 MOV 4(R3),R3
1034 004746 005002 CLR R2
1035 004750 156302 000007 BISB 7(R3),R2
1036 004754 020227 000377 CMP R2,#377
1037 004760 101402 BLOS .+6
1038 004762 004767 000000G JSR PC,$B45
1039 004766 010246 MOV R2,-(SP)
1040 004770 004767 174202 JSR PC,GETVAR
1041 .GLOBL GETVAR
1042 004774 012605 MOV (SP)+,R5
1043 004776 001002 BNE .+6
1044 005000 004767 000000G JSR PC,$B47
1045 005004 172465 000002 LDF 2(R5),AC0
1046 005010 170565 000002 TSTF 2(R5)
1047 005014 170000 CFCC
1048 005016 100002 BPL L32752
1049 005020 173027 040200 SUBF #↑O40200,AC0
1050 005024 172027 040000 L32752: ADDF #↑O40000,AC0
1051 005030 175403 STCFI AC0,R3
1052 005032 010366 000026 MOV R3,26(SP)
1053 005036 L95:
1054 005036 L98:
1055 005036 172426 L101: LDF (SP)+,AC0
1056 005040 004767 000000G JSR PC,$B77
1057 005044 005726 TST (SP)+
1058 005046 012616 MOV (SP)+,@SP
1059 005050 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 19
1061 ;GETSIZE
1062 005052 P49:
1063 005052 010346 MOV R3,-(SP)
1064 005054 010146 MOV R1,-(SP)
1065 005056 004767 000000G JSR PC,$B127
1066 005062 005766 000006 TST 6(SP)
1067 005066 001002 BNE .+6
1068 005070 004767 000000G JSR PC,$B47
1069 005074 016603 000006 MOV 6(SP),R3
1070 005100 005713 TST @R3
1071 005102 001004 BNE L103
1072 005104 012763 000001 000010 MOV #1,10(R3)
1073 005112 000406 BR L104
1074
1075 005114 005746 L103: TST -(SP)
1076 005116 011346 MOV @R3,-(SP)
1077 005120 004767 177726 JSR PC,P49 ;GETSIZE
1078 005124 012663 000010 MOV (SP)+,10(R3)
1079 005130 016301 000006 L104: MOV 6(R3),R1
1080 005134 166301 000004 SUB 4(R3),R1
1081 005140 005201 INC R1
1082 005142 070163 000010 MUL 10(R3),R1
1083 005146 010166 000010 MOV R1,10(SP)
1084 005152 012601 MOV (SP)+,R1
1085 005154 012603 MOV (SP)+,R3
1086 005156 012616 MOV (SP)+,@SP
1087 005160 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 20
1089 .GLOBL MAKEVAR
1090 005162 MAKEVAR:
1091 005162 162706 000024 SUB #24,SP
1092 005166 004767 000000G JSR PC,$B75
1093 005172 004767 000000G JSR PC,$B127
1094 005176 012700 000001 MOV #1,R0
1095 005202 012701 000011 MOV #11,R1
1096 005206 005766 000046 TST 46(SP)
1097 005212 001002 BNE .+6
1098 005214 004767 000000G JSR PC,$B47
1099 005220 026600 000042 CMP 42(SP),R0
1100 005224 001004 BNE L106
1101 005226 112776 000013 000046 MOVB #13,@46(SP)
1102 005234 000417 BR L107
1103
1104 005236 026627 000042 000002 L106: CMP 42(SP),#2
1105 005244 001004 BNE L109
1106 005246 112776 000012 000046 MOVB #12,@46(SP)
1107 005254 000407 BR L110
1108
1109 005256 026627 000042 000004 L109: CMP 42(SP),#4
1110 005264 002403 BLT L112
1111 005266 112776 000014 000046 MOVB #14,@46(SP)
1112 005274 L107:
1113 005274 L110:
1114 005274 016603 000046 L112: MOV 46(SP),R3
1115 005300 111302 MOVB @R3,R2
1116 005302 062702 177776 ADD #177776,R2
1117 005306 022702 000014 CMP #14,R2
1118 005312 103002 BHIS .+6
1119 005314 000167 001212 JMP L113
1120 005320 006302 ASL R2
1121 005322 000172 000252' JMP @$CONST+252(R2)
1122 000252 .PSECT CONSTS
1123 000252 005326' L115
1124 000254 005336' L116
1125 000256 006532' L113
1126 000260 005336' L116
1127 000262 005346' L117
1128 000264 005440' L118
1129 000266 005456' L119
1130 000270 006532' L113
1131 000272 005516' L121
1132 000274 005576' L122
1133 000276 006532' L113
1134 000300 006532' L113
1135 000302 005472' L120
1136 005326 .PSECT
1137 005326 170463 000002 L115: CLRF 2(R3)
1138 005332 000167 001174 JMP L114
1139
1140 005336 005063 000002 L116: CLR 2(R3)
1141 005342 000167 001164 JMP L114
1142
1143 005346 005746 L117: TST -(SP)
1144 005350 004767 000000G JSR PC,NEWFRAME
1145 .GLOBL NEWFRAME
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 20-1
1146 005354 012663 000002 MOV (SP)+,2(R3)
1147 005360 001002 BNE .+6
1148 005362 004767 000000G JSR PC,$B47
1149 005366 016303 000002 MOV 2(R3),R3
1150 005372 016613 000044 MOV 44(SP),@R3
1151 005376 005063 000002 CLR 2(R3)
1152 005402 110063 000004 MOVB R0,4(R3)
1153 005406 012763 177777 000006 MOV #177777,6(R3)
1154 005414 005063 000010 CLR 10(R3)
1155 005420 005063 000012 CLR 12(R3)
1156 005424 005063 000014 CLR 14(R3)
1157 005430 005063 000016 CLR 16(R3)
1158 005434 000167 001072 JMP L114
1159
1160 005440 005746 L118: TST -(SP)
1161 005442 004767 175422 JSR PC,GETEVENT
1162 .GLOBL GETEVENT
1163 005446 012663 000002 MOV (SP)+,2(R3)
1164 005452 000167 001054 JMP L114
1165
1166 005456 005063 000002 L119: CLR 2(R3)
1167 005462 005063 000004 CLR 4(R3)
1168 005466 000167 001040 JMP L114
1169
1170 005472 005063 000002 L120: CLR 2(R3)
1171 005476 016646 000046 MOV 46(SP),-(SP)
1172 005502 016646 000046 MOV 46(SP),-(SP)
1173 005506 004767 176330 JSR PC,MAKECMON
1174 .GLOBL MAKECMON
1175 005512 000167 001014 JMP L114
1176
1177 005516 112713 000012 L121: MOVB #12,@R3
1178 005522 005766 000044 TST 44(SP)
1179 005526 001002 BNE .+6
1180 005530 004767 000000G JSR PC,$B47
1181 005534 016602 000044 MOV 44(SP),R2
1182 005540 016263 000014 000002 MOV 14(R2),2(R3)
1183 005546 005737 011576' TST @#$G$+11576
1184 005552 001002 BNE .+6
1185 005554 004767 000000G JSR PC,$B47
1186 005560 013702 011576' MOV @#$G$+11576,R2
1187 005564 016263 000010 000004 MOV 10(R2),4(R3)
1188 005572 000167 000734 JMP L114
1189
1190 005576 005766 000044 L122: TST 44(SP)
1191 005602 001002 BNE .+6
1192 005604 004767 000000G JSR PC,$B47
1193 005610 016603 000044 MOV 44(SP),R3
1194 005614 005763 000014 TST 14(R3)
1195 005620 001002 BNE .+6
1196 005622 004767 000000G JSR PC,$B47
1197 005626 016303 000014 MOV 14(R3),R3
1198 005632 016366 000006 000036 MOV 6(R3),36(SP)
1199 005640 005066 000034 CLR 34(SP)
1200 005644 005766 000036 L123: TST 36(SP)
1201 005650 001470 BEQ L125
1202 005652 005746 TST -(SP)
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 20-2
1203 005654 004767 000000G JSR PC,NEWNODE
1204 .GLOBL NEWNODE
1205 005660 012604 MOV (SP)+,R4
1206 005662 005766 000034 TST 34(SP)
1207 005666 001012 BNE L127
1208 005670 005766 000046 TST 46(SP)
1209 005674 001002 BNE .+6
1210 005676 004767 000000G JSR PC,$B47
1211 005702 016603 000046 MOV 46(SP),R3
1212 005706 010463 000004 MOV R4,4(R3)
1213 005712 000407 BR L128
1214
1215 005714 005766 000034 L127: TST 34(SP)
1216 005720 001002 BNE .+6
1217 005722 004767 000000G JSR PC,$B47
1218 005726 010476 000034 MOV R4,@34(SP)
1219 005732 010466 000034 L128: MOV R4,34(SP)
1220 005736 001002 BNE .+6
1221 005740 004767 000000G JSR PC,$B47
1222 005744 112764 000035 000002 MOVB #35,2(R4)
1223 005752 005766 000036 TST 36(SP)
1224 005756 001002 BNE .+6
1225 005760 004767 000000G JSR PC,$B47
1226 005764 016603 000036 MOV 36(SP),R3
1227 005770 005746 TST -(SP)
1228 005772 016346 000004 MOV 4(R3),-(SP)
1229 005776 004767 176470 JSR PC,P48 ;GETBOUND
1230 006002 012664 000004 MOV (SP)+,4(R4)
1231 006006 005746 TST -(SP)
1232 006010 016346 000006 MOV 6(R3),-(SP)
1233 006014 004767 176452 JSR PC,P48 ;GETBOUND
1234 006020 012664 000006 MOV (SP)+,6(R4)
1235 006024 011366 000036 MOV @R3,36(SP)
1236 006030 000705 BR L123
1237
1238 006032 005746 L125: TST -(SP)
1239 006034 005766 000050 TST 50(SP)
1240 006040 001002 BNE .+6
1241 006042 004767 000000G JSR PC,$B47
1242 006046 016603 000050 MOV 50(SP),R3
1243 006052 016346 000004 MOV 4(R3),-(SP)
1244 006056 010605 MOV SP,R5
1245 006060 062705 000020 ADD #20,R5
1246 006064 004767 176762 JSR PC,P49 ;GETSIZE
1247 006070 012666 000022 MOV (SP)+,22(SP)
1248 006074 005746 TST -(SP)
1249 006076 004767 000000G JSR PC,NEWEHEADER
1250 .GLOBL NEWEHEADER
1251 006102 012666 000024 MOV (SP)+,24(SP)
1252 006106 001002 BNE .+6
1253 006110 004767 000000G JSR PC,$B47
1254 006114 016603 000024 MOV 24(SP),R3
1255 006120 105063 000014 CLRB 14(R3)
1256 006124 005766 000046 TST 46(SP)
1257 006130 001002 BNE .+6
1258 006132 004767 000000G JSR PC,$B47
1259 006136 016602 000046 MOV 46(SP),R2
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 20-3
1260 006142 016662 000024 000002 MOV 24(SP),2(R2)
1261 006150 005746 TST -(SP)
1262 006152 004767 000000G JSR PC,NEWENVIRONMENT
1263 .GLOBL NEWENVIRONMENT
1264 006156 012666 000026 MOV (SP)+,26(SP)
1265 006162 001002 BNE .+6
1266 006164 004767 000000G JSR PC,$B47
1267 006170 005076 000026 CLR @26(SP)
1268 006174 016663 000026 000002 MOV 26(SP),2(R3)
1269 006202 010046 MOV R0,-(SP)
1270 006204 005766 000026 L129: TST 26(SP)
1271 006210 001002 BNE .+6
1272 006212 004767 000000G JSR PC,$B47
1273 006216 011603 MOV @SP,R3
1274 006220 020327 000004 CMP R3,#4
1275 006224 101402 BLOS .+6
1276 006226 004767 000000G JSR PC,$B43
1277 006232 006303 ASL R3
1278 006234 066603 000026 ADD 26(SP),R3
1279 006240 005063 000002 CLR 2(R3)
1280 006244 005216 INC @SP
1281 006246 021627 000004 CMP @SP,#4
1282 006252 003754 BLE L129
1283 006254 005726 L130: TST (SP)+
1284 006256 005046 CLR -(SP)
1285 006260 005766 000030 L131: TST 30(SP)
1286 006264 001002 BNE .+6
1287 006266 004767 000000G JSR PC,$B47
1288 006272 011603 MOV @SP,R3
1289 006274 020301 CMP R3,R1
1290 006276 101402 BLOS .+6
1291 006300 004767 000000G JSR PC,$B43
1292 006304 006303 ASL R3
1293 006306 066603 000030 ADD 30(SP),R3
1294 006312 005063 000002 CLR 2(R3)
1295 006316 005216 INC @SP
1296 006320 021601 CMP @SP,R1
1297 006322 003756 BLE L131
1298 006324 005726 L132: TST (SP)+
1299 006326 005066 000014 CLR 14(SP)
1300 006332 012766 177777 000016 MOV #177777,16(SP)
1301 006340 016646 000022 MOV 22(SP),-(SP)
1302 006344 010046 MOV R0,-(SP)
1303 006346 021666 000002 L133: CMP @SP,2(SP)
1304 006352 003033 BGT L134
1305 006354 005746 TST -(SP)
1306 006356 012746 000024 MOV #24,-(SP)
1307 006362 060616 ADD SP,@SP
1308 006364 012746 000030 MOV #30,-(SP)
1309 006370 060616 ADD SP,@SP
1310 006372 012746 000042 MOV #42,-(SP)
1311 006376 060616 ADD SP,@SP
1312 006400 016646 000040 MOV 40(SP),-(SP)
1313 006404 016646 000062 MOV 62(SP),-(SP)
1314 006410 004767 174726 JSR PC,ENTERENTRY
1315 .GLOBL ENTERENTRY
1316 006414 012666 000034 MOV (SP)+,34(SP)
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 20-4
1317 006420 016646 000034 MOV 34(SP),-(SP)
1318 006424 016646 000052 MOV 52(SP),-(SP)
1319 006430 005046 CLR -(SP)
1320 006432 004767 176524 JSR PC,MAKEVAR
1321 .GLOBL MAKEVAR
1322 006436 005216 INC @SP
1323 006440 102342 BVC L133
1324 006442 022626 L134: CMP (SP)+,(SP)+
1325 006444 016603 000016 MOV 16(SP),R3
1326 006450 005203 INC R3
1327 006452 010366 000014 MOV R3,14(SP)
1328 006456 026601 000014 L135: CMP 14(SP),R1
1329 006462 003023 BGT L136
1330 006464 005766 000026 TST 26(SP)
1331 006470 001002 BNE .+6
1332 006472 004767 000000G JSR PC,$B47
1333 006476 016603 000014 MOV 14(SP),R3
1334 006502 020301 CMP R3,R1
1335 006504 101402 BLOS .+6
1336 006506 004767 000000G JSR PC,$B43
1337 006512 006303 ASL R3
1338 006514 066603 000026 ADD 26(SP),R3
1339 006520 005063 000002 CLR 2(R3)
1340 006524 005266 000014 INC 14(SP)
1341 006530 102352 BVC L135
1342 006532 L114:
1343 006532 L113:
1344 006532 004767 000000G L136: JSR PC,$B77
1345 006536 016666 000024 000032 MOV 24(SP),32(SP)
1346 006544 062706 000032 ADD #32,SP
1347 006550 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 21
1349 .GLOBL KILLNODE
1350 006552 KILLNODE:
1351 006552 010346 MOV R3,-(SP)
1352 006554 010246 MOV R2,-(SP)
1353 006556 004767 000000G JSR PC,$B127
1354 006562 005766 000006 TST 6(SP)
1355 006566 001002 BNE .+6
1356 006570 004767 000000G JSR PC,$B47
1357 006574 016603 000006 MOV 6(SP),R3
1358 006600 126327 000002 000001 CMPB 2(R3),#1
1359 006606 001043 BNE L138
1360 006610 116302 000003 MOVB 3(R3),R2
1361 006614 062702 177775 ADD #177775,R2
1362 006620 022702 000002 CMP #2,R2
1363 006624 103434 BLO L139
1364 006626 006302 ASL R2
1365 006630 000172 000304' JMP @$CONST+304(R2)
1366 000304 .PSECT CONSTS
1367 000304 006634' L141
1368 000306 006716' L139
1369 000310 006666' L142
1370 006634 .PSECT
1371 006634 005763 000004 L141: TST 4(R3)
1372 006640 001002 BNE .+6
1373 006642 004767 000000G JSR PC,$B47
1374 006646 005773 000004 TST @4(R3)
1375 006652 003004 BGT L144
1376 006654 016346 000004 MOV 4(R3),-(SP)
1377 006660 004767 000000G JSR PC,RELVECTOR
1378 .GLOBL RELVECTOR
1379 006664 000414 L144: BR L140
1380
1381 006666 005763 000004 L142: TST 4(R3)
1382 006672 001002 BNE .+6
1383 006674 004767 000000G JSR PC,$B47
1384 006700 005773 000004 TST @4(R3)
1385 006704 003004 BGT L146
1386 006706 016346 000004 MOV 4(R3),-(SP)
1387 006712 004767 000000G JSR PC,RELTRANS
1388 .GLOBL RELTRANS
1389 006716 L138:
1390 006716 L140:
1391 006716 L139:
1392 006716 016646 000006 L146: MOV 6(SP),-(SP)
1393 006722 004767 000000G JSR PC,RELNODE
1394 .GLOBL RELNODE
1395 006726 012602 MOV (SP)+,R2
1396 006730 012603 MOV (SP)+,R3
1397 006732 012616 MOV (SP)+,@SP
1398 006734 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 22
1400 .GLOBL KILLSTACK
1401 006736 KILLSTACK:
1402 006736 024646 CMP -(SP),-(SP)
1403 006740 004767 000000G JSR PC,$B75
1404 006744 004767 000000G JSR PC,$B127
1405 006750 005737 011576' TST @#$G$+11576
1406 006754 001002 BNE .+6
1407 006756 004767 000000G JSR PC,$B47
1408 006762 013703 011576' MOV @#$G$+11576,R3
1409 006766 016305 000016 MOV 16(R3),R5
1410 006772 005705 L147: TST R5
1411 006774 001412 BEQ L149
1412 006776 005705 TST R5
1413 007000 001002 BNE .+6
1414 007002 004767 000000G JSR PC,$B47
1415 007006 011504 MOV @R5,R4
1416 007010 010546 MOV R5,-(SP)
1417 007012 004767 177534 JSR PC,KILLNODE
1418 .GLOBL KILLNODE
1419 007016 010405 MOV R4,R5
1420 007020 000764 BR L147
1421
1422 007022 004767 000000G L149: JSR PC,$B77
1423 007026 022626 CMP (SP)+,(SP)+
1424 007030 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 23
1426 .GLOBL SENDCMD
1427 007032 SENDCMD:
1428 007032 005746 TST -(SP)
1429 007034 004767 000000G JSR PC,$B75
1430 007040 004767 000000G JSR PC,$B127
1431 007044 005746 TST -(SP)
1432 007046 004767 000000G JSR PC,SENDARM
1433 .GLOBL SENDARM
1434 007052 112603 MOVB (SP)+,R3
1435 007054 020327 000001 CMP R3,#1
1436 007060 101402 BLOS .+6
1437 007062 004767 000000G JSR PC,$B45
1438 007066 010305 MOV R3,R5
1439 007070 005737 011622' TST @#$G$+11622
1440 007074 001002 BNE .+6
1441 007076 004767 000000G JSR PC,$B47
1442 007102 013703 011622' MOV @#$G$+11622,R3
1443 007106 111303 MOVB @R3,R3
1444 007110 006702 SXT R2
1445 007112 071227 000010 DIV #10,R2
1446 007116 136362 000000' 000246' BITB $BITS+0(R3),$CONST+246(R2)
1447 007124 001002 BNE L151
1448 007126 004767 000000G JSR PC,SIGNALARM
1449 .GLOBL SIGNALARM
1450 007132 004767 000000G L151: JSR PC,$B77
1451 007136 005726 TST (SP)+
1452 007140 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 24
1454 .GLOBL SENDTRANS
1455 007142 SENDTRANS:
1456 007142 162706 000010 SUB #10,SP
1457 007146 004767 000000G JSR PC,$B75
1458 007152 174046 STF AC0,-(SP)
1459 007154 004767 000000G JSR PC,$B127
1460 007160 012700 000001 MOV #1,R0
1461 007164 005746 TST -(SP)
1462 007166 004767 000000G JSR PC,SENDARM
1463 .GLOBL SENDARM
1464 007172 112603 MOVB (SP)+,R3
1465 007174 020300 CMP R3,R0
1466 007176 101402 BLOS .+6
1467 007200 004767 000000G JSR PC,$B45
1468 007204 110366 000026 MOVB R3,26(SP)
1469 007210 005737 011622' TST @#$G$+11622
1470 007214 001002 BNE .+6
1471 007216 004767 000000G JSR PC,$B47
1472 007222 013703 011622' MOV @#$G$+11622,R3
1473 007226 010346 MOV R3,-(SP)
1474 007230 005766 000034 TST 34(SP)
1475 007234 001002 BNE .+6
1476 007236 004767 000000G JSR PC,$B47
1477 007242 005046 CLR -(SP)
1478 007244 010004 L152: MOV R0,R4
1479 007246 010005 L154: MOV R0,R5
1480 007250 010503 L156: MOV R5,R3
1481 007252 005303 DEC R3
1482 007254 070327 000003 MUL #3,R3
1483 007260 060403 ADD R4,R3
1484 007262 005303 DEC R3
1485 007264 020327 000005 CMP R3,#5
1486 007270 101402 BLOS .+6
1487 007272 004767 000000G JSR PC,$B43
1488 007276 072327 000002 ASH #2,R3
1489 007302 066603 000002 ADD 2(SP),R3
1490 007306 010402 MOV R4,R2
1491 007310 005302 DEC R2
1492 007312 020227 000002 CMP R2,#2
1493 007316 101402 BLOS .+6
1494 007320 004767 000000G JSR PC,$B43
1495 007324 072227 000004 ASH #4,R2
1496 007330 066602 000036 ADD 36(SP),R2
1497 007334 012701 000002 MOV #2,R1
1498 007340 070116 MUL @SP,R1
1499 007342 060501 ADD R5,R1
1500 007344 005301 DEC R1
1501 007346 020127 000003 CMP R1,#3
1502 007352 101402 BLOS .+6
1503 007354 004767 000000G JSR PC,$B43
1504 007360 072127 000002 ASH #2,R1
1505 007364 060102 ADD R1,R2
1506 007366 172462 000002 LDF 2(R2),AC0
1507 007372 174063 000002 STF AC0,2(R3)
1508 007376 005205 INC R5
1509 007400 020527 000002 CMP R5,#2
1510 007404 003721 BLE L156
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 24-1
1511 007406 005204 L157: INC R4
1512 007410 020427 000003 CMP R4,#3
1513 007414 003714 BLE L154
1514 007416 005746 L155: TST -(SP)
1515 007420 004767 000000G JSR PC,SENDARM
1516 .GLOBL SENDARM
1517 007424 112603 MOVB (SP)+,R3
1518 007426 020300 CMP R3,R0
1519 007430 101402 BLOS .+6
1520 007432 004767 000000G JSR PC,$B45
1521 007436 110366 000032 MOVB R3,32(SP)
1522 007442 005216 INC @SP
1523 007444 021600 CMP @SP,R0
1524 007446 003676 BLE L152
1525 007450 005726 L153: TST (SP)+
1526 007452 005776 000034 TST @34(SP)
1527 007456 003004 BGT L159
1528 007460 016646 000034 MOV 34(SP),-(SP)
1529 007464 004767 000000G JSR PC,RELTRANS
1530 .GLOBL RELTRANS
1531 007470 005726 L159: TST (SP)+
1532 007472 172426 LDF (SP)+,AC0
1533 007474 004767 000000G JSR PC,$B77
1534 007500 062706 000010 ADD #10,SP
1535 007504 012616 MOV (SP)+,@SP
1536 007506 000207 RTS PC
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 25
1538 000001 .END
IAUX1A MACRO M1113 10-MAR-83 00:53 PAGE 25-1
SYMBOL TABLE
AC0 =%000000 L120 005472R L21 000714R L56 002752R NEWFRA= ****** G
AC1 =%000001 L121 005516R L23 000756R L57 003046R NEWNOD= ****** G
AC2 =%000002 L122 005576R L24 001142R L58 002756R NEWPDB= ****** G
AC3 =%000003 L123 005644R L25 001000R L59 003014R POP 000066RG
AC4 =%000004 L125 006032R L27 001032R L6 000246R PPCHAR= ****** G
AC5 =%000005 L127 005714R L29 001142R L61 003002R PPINT = ****** G
ENTERE 003342RG L128 005732R L3 000166R L62 003004R PPLINE= ****** G
ENVLOO 000324RG L129 006204R L30 001264R L65 003046R PP20 = ****** G
FREEEV 003150RG L13 000504R L32 001310R L67 003220R PP20L = ****** G
FREEPD 002706RG L130 006254R L32752 005024R L68 003314R PP5 = ****** G
GETELE 000562RG L131 006260R L32753 004676R L69 003224R PUSH 000006RG
GETENT 000724RG L132 006324R L32754 004630R L70 003262R P48 004472R
GETEVE 003070RG L133 006346R L32755 004576R L72 003250R P49 005052R
GETNVA 002232RG L134 006442R L32756 002210R L73 003252R RELEVE= ****** G
GETPDB 002404RG L135 006456R L32757 001630R L76 003314R RELNOD= ****** G
GETVAR 001176RG L136 006532R L32758 001576R L78 003330R RELPDB= ****** G
GTVARN 001762RG L138 006716R L32759 001552R L8 000306R RELTRA= ****** G
IAUX1A 000000RG L139 006716R L32760 001500R L80 003572R RELVEC= ****** G
KILLNO 006552RG L14 000460R L32761 001454R L81 003436R SENDAR= ****** G
KILLST 006736RG L140 006716R L32762 001400R L82 003504R SENDCM 007032RG
L10 000306R L141 006634R L32763 001122R L84 003570R SENDTR 007142RG
L100 004700R L142 006666R L32764 001100R L85 003576R SIGNAL= ****** G
L101 005036R L144 006664R L32765 001056R L87 003662R UPTRAN 000214RG
L103 005114R L146 006716R L32766 000134R L89 004016R $BITS 000000R 003
L104 005130R L147 006772R L34 001736R L91 004266R $B127 = ****** G
L106 005236R L149 007022R L35 001334R L92 004272R $B43 = ****** G
L107 005274R L15 000502R L38 001534R L94 004600R $B45 = ****** G
L109 005256R L151 007132R L39 001662R L95 005036R $B47 = ****** G
L110 005274R L152 007244R L4 000206R L97 004632R $B75 = ****** G
L112 005274R L153 007450R L41 001662R L98 005036R $B77 = ****** G
L113 006532R L154 007246R L43 002110R MAKECM 004042RG $CODE 000000R
L114 006532R L155 007416R L44 002222R MAKEVA 005162RG $CONST 000000R 004
L115 005326R L156 007250R L45 002302R NEWCMO= ****** G $FILE = ****** G
L116 005336R L157 007406R L46 002322R NEWEEN= ****** G $G$ 000000R 002
L117 005346R L159 007470R L49 002366R NEWEHE= ****** G $RESR5= ****** G
L118 005440R L17 000610R L51 002366R NEWENV= ****** G $RESR6= ****** G
L119 005456R L18 000714R L53 002600R NEWEVE= ****** G $VER = 000014 G
L12 000430R L20 000664R L54 002624R
. ABS. 000000 000
007510 001
GLOBAL 011660 002
TABLES 000050 003
CONSTS 000312 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 1013 WORDS ( 4 PAGES)
DYNAMIC MEMORY: 20238 WORDS ( 77 PAGES)
ELAPSED TIME: 00:00:32
IAUX1A,IAUX1A=IAUX1A